#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;

binmode STDOUT, ':encoding(utf8)';

my $fh;

printf "%128s %-12s\n", "+" x 128, "-" x 12;

printf "%128s %-2s %-2s %-2s %-2s\n", "File", "x", "r", "w", "e";

foreach(@ARGV){
	printf "%128s %-2s %-2s %-2s %-2s\n", $_, -x $_ ? 'Y' : 'N', -r $_ ? 'Y' : 'N', -w $_ ? 'Y' : 'N', -e $_ ? 'Y' : 'N';
}
